home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 49
/
049.d81
/
down down down
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
29KB
|
864 lines
0 n=1:poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1
1 poke648,128:poke53265,27:poke53272,8:poke650,128:ml=6:hs=0:gosub23000
2 poke53282,2:poke53283,1:poke53270,216:poke53281,0:poke53280,0
3 poke53272,8:poke648,128:gosub25000
5 cd$=""
7 cl$=" "
10 dima$(125),a(127)
20 fora=1to13:readb:a(b)=1:next:goto12000
103 restore:fora=1to13:readb:next:mb=3:l=1:s=.:ifl>1thengosub31000
104 pokesd+4,wf:pokesd+1,33:pokesd,135:pokesd+4,17:fora=1to50:next:ct=.:wf=16
105 readcl,ad,mc:fora=nto100:reada$(a):next
106 fora=101to125:a$(a)=a$(100):next:poke53265,23
107 print"[147]";:poke198,.:poke646,cl+8:poke53282,ad:poke53283,mc
108 fora=nto25:print:next
110 fora=nto18:printtab(6)"[167]"a$(a):next
115 printcd$tab(6)"[167]"a$(19)""
120 x=20:sc=32968:y=20:rv=8:ov=10:jp=56320:sp=32
131 poke53272,rv:vv=rv:rv=ov:ov=vv
132 ct=ct+n:ifct=10thenpokesd+4,wf
133 pokepx+sc,sp
135 px=x:pokesc+x,81
140 bx=peek(x+sc+40)
145 ifbx=spthenpokepx+sc,sp:gosub17000:goto182
146 ifbx=87thengosub18000:goto182
150 ifbx=77theno=n:x=x+n:ifpeek(x+sc)<>spthenx=px
160 ifbx=78theno=n:x=x-n:ifpeek(x+sc)<>spthenx=px
162 ifbx=91thengosub21000
172 ifbx=27thenx=x-5:goto18100
174 ifbx=29thenx=x+5:goto18100
176 ifbx=35then16000
177 ifbx=.thenpokex+sc+40,sp:s=s+100*l:print"score"s:gosub18200
178 ifa(bx)then15000
180 ifo=ntheno=.:goto200
182 j=peek(jp):if(jand4)=.thenx=x-n:bm=107:mm=84:pm=89:bx=peek(x+sc):gosub1000
183 getqq$:ifqq$="[136]"then8000
184 if(jand8)=.thenx=x+n:bm=115:mm=89:pm=84:bx=peek(x+sc):gosub1000
186 ifdm=norj=111thendm=.:goto15000
187 k=.
199 ifsm=nthenpokepx+sc,pm:pokex+sc,mm:sm=0
200 goto131
1000 k=n:dm=.:ifa(bx)thendm=n:return
1008 ifx<.thenx=px:pokex+sc,bm:fora=nto50:next:return
1009 ifbx=.thengosub18200:s=s+100*l:printcl$"score"s:goto1020
1010 ifbx<>spthenx=px:pokex+sc,bm:gosub18500:return
1020 sm=n:return
8000 print"[147] 1[159] play another game"
8010 print" 2[159] return to loadstar"
8020 getqq$:ifqq$<>"1"andqq$<>"2"then8020
8030 ifqq$="1"thenrun
8040 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
8050 ifer%<>63thenend
8060 poke53272,21:poke648,4:poke56576,151:poke53265,27:poke53270,200
8065 load"hello connect",8
9999 data109,125,102,104,92,85,73,36,31,42,72,68,70
10000 b=63200:c=63208
10001 ifc>63300thenend
10002 q$=chr$(34):d$=chr$(20):print"[147]";:fora=btoc
10010 printa"[157]data"q$q$d$spc(26)"[165]"q$:next
10020 print"b="c+1":c="c+9":goto10001"
10030 print"";:fora=631to640:pokea,13:next:poke198,10:end
12000 print"[147][149]down down down down down down down..."
12010 print"by john w. harris"
12020 print"[183][183][183][163][163][163][163][183][183][183][183][163][163][163][163][183][183][183][183][163][163][163][163][183][183][183][183][163][163][163][163][183][183][183][183][163][163][163]";
12030 fora=1to2500:next
12040 print"":fora=1to7:printtab(20)"[209][145][157] ":print:forb=1to70:next:next
12045 pokesd+5,0:pokesd+6,240:pokesd+1,150:pokesd,0:pokesd+4,17
12047 pokesd+5+7,0:pokesd+6+7,240:pokesd+1+7,75:pokesd+7,0:pokesd+4+7,33
12050 fora=1to3:forb=150to70step-8:pokesd+1,b:pokesd+1+7,b*1.5:poke53282,b:next
12060 forb=70to150step6:pokesd+1,b:pokesd+1+7,b*1.3:poke53283,b:next:next
12070 pokesd+4+7,0:pokesd+4,16:pokesd+5,9:pokesd+6,0:gosub25010:goto19050
15000 pokepx+sc,32
15002 pokesd+4,wf:pokesd+5,12:pokesd+6,96:pokesd+1,96:pokesd,0:pokesd+4,129
15005 pokex+sc,102:fora=1to250:next
15010 pokex+sc,81:fora=1to250:next
15020 pokex+sc,108:fora=1to250:next
15030 pokex+sc,123:fora=1to250:next
15040 pokex+sc,126
15045 fora=100to0step-1.1:pokesd+1,a:next:pokesd+5,9:pokesd+6,0
15050 pokex+sc,32:fora=1to250:next:pokesd+4,128
15055 mb=mb-1
15057 ifmb=0then19000
15060 print"[129][147]"
15065 p$="s":ifmb=1thenp$=""
15070 printmb"marble"p$" left":poke53282,1:poke53283,1
15080 fora=1to3000:next:goto106
16000 pokesd+4,wf
16001 pokex+sc,32:s=s+l*1000:l=l+1:pokesd+5,0:pokesd+6,240:pokesd,0:pokesd+1,10
16002 pokesd+4,17:fora=10to160step10:poke53282,int(rnd(1)*16)
16003 poke53283,int(rnd(1)*16)
16004 pokesd+1,a:forb=1to100:next:next:pokesd+4,16:pokesd+5,9:pokesd+6,0
16005 poke53282,a:poke53283,mc
16006 print"[129]"
16007 poke53282,1:poke53283,1:print"[147]score"s
16010 pokex+sc-40,32:ifl<=mlthen104
16020 print"[147][149]you win!":sc=sc+ml*10000+25000:fora=1to3000:next
16030 print"[207][207][207][207] [207][207][173][166][189][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16040 print"[207][207][207][207] [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16050 print"[207][207][207][207] [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16060 print"[207][207][207][207][207][207] [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16070 print"[207][207][207][207][207][207] yay! [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16080 print"[207][207][207][207][207][207][207][207] [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16090 print"[207][207][207][207][207][207][207][207] [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16100 print"[207][207][207][207][207][207][207][207][207][207] [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16110 print"[207][207][207][207][207][207][207][207][207][207][209] [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16120 print"[207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
16130 pokesd+5,0:pokesd+6,240:pokesd,0:pokesd+1,78:pokesd+4,33
16140 fora=1to6:forb=78to124:pokesd+1,b:poke53282,b:poke53283,b*2:next
16145 forb=124to78step-1:pokesd+1,b:poke53282,b:poke53283,b*2:next:next
16147 pokesd+4,32
16152 poke53282,2:poke53283,3
16160 print"[192][192][192][192][192][192][192][192][192][192]"
16170 print"[192]the end [192]"
16180 print"[192][192][192][192][192][192][192][192][192][192]"
16190 fora=1to3000:next
16200 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
16210 print"[192]to be continued...[192]"
16220 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
16230 fora=1to3000:next:goto19050
17000 s=s+l*15:printcd$:s=s+l*15:printtab(6)"[167]"a$(y)cl$"score"s:y=y+1
17010 ifdc=nthenreturn
17020 pokex+sc,81:return
18000 dc=n:pokesd+4,wf:pokepx+sc,65:fora=1to50:next:pokepx+sc,32:pokex+sc+400,65
18003 pokesd+5,.:pokesd+6,240:pokesd+1,100:pokesd,.:pokesd+4,17
18010 fora=150to60step-10:pokesd+1,a:gosub17000:next:pokesd+4,16:pokesd+5,9
18020 pokesd+6,.:dc=.:return
18100 pokepx+sc,65:gosub18600:pokepx+sc,sp
18120 pokex+sc,65:gosub18700:goto131
18200 pokesd+4,wf:pokesd+1,67:pokesd,15
18210 pokesd+4,33:wf=32:ct=.:return
18300 pokesd+4,0:pokesd+5,.:pokesd+6,240:pokesd,.:pokesd+1,100:pokesd+4,33
18310 fora=100to50step-3:forb=atoa-40step-2
18320 pokesd+1,b:next:next:pokesd+4,32:return
18400 pokesd+5,.:pokesd+6,240:pokesd,.:pokesd+1,60:pokesd+4,33
18410 fora=60to120step4:forb=atoa+13:pokesd+1,b:pokesd+1,b+2:pokesd+1,b+1
18420 next:next:pokesd+4,32:pokesd+5,9:pokesd+6,0:return
18500 pokesd+4,wf:pokesd,.:pokesd+1,10:pokesd+4,17:ct=4:wf=16:return
18600 pokesd+4,wf:pokesd+5,0:pokesd+6,240:pokesd,0:pokesd+1,100:pokesd+4,129
18610 fora=100to10step-4:pokesd+1,a:next:pokesd+4,128:return
18700 pokesd+4,wf:pokesd,.:pokesd+1,100:pokesd+4,129
18710 fora=10to100step4:pokesd+1,a:next:pokesd+4,128:pokesd+5,9:pokesd+6,.
18720 return
19000 print"